1 REM *** THE COUNT...C-64 ***
2 A=700:REM *** CHANGE A TO RELOCATE ***
3 PRINTCHR$(147)"LOADING";
4 FORB=ATOA+38:READC:POKEB,C:D=D+C:PRINT".";:NEXTB
5 PRINT:PRINT:IFD<>6713THENPRINT"ERROR IN DATA...":END
6 PRINT"OK * SYS"A"TO COUNT...":END
7 DATA160,0,132,251,132,252,165,43,166,44,133,253
8 DATA134,254,200,177,253,240,13,230,251,208,2,230
9 DATA252,170,136,177,253,184,80,234,165,252,166,251
10 DATA76,205,189